home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Logiciels divers T1 / PAO⁄TdT / LaserWriter Image Centring / Current Margin Settings next >
Text File  |  1993-09-22  |  986b  |  21 lines
  1. /str 32 string def    %Define a 32 character string for later use.
  2. /Times-Roman findfont    %Lookup font in fontdict and push it on stack.
  3. 15 scalefont setfont    %Push size, scale, and make it the current font.
  4. 72 700 moveto    %One inch over, and 700 72nds up.
  5. statusdict begin    %We'll be using two operators from statusdict.
  6. (Margins for )    %Push the leading text on the stack.
  7. show    %Show the topmost string from the stack at 72 700.
  8. str    %Push an empty string of 32 length on stack.
  9. printername    %Puts the LaserWriter name in the string.
  10. show    %Show it.
  11. 72 680 moveto    %Move back to 1 inch left, and down 20 points.
  12. margins    %Push top and left margins onto stack.
  13. ( Xoffset set to: )    %Push leading string onto stack.
  14. show    %Show it.
  15. str    %Push an empty string.
  16. cvs show    %Convert left margin into the string and show it.
  17. 72 660 moveto    %Do the same thing again for the top margin.
  18. ( Yoffset set to: )    %
  19. show str cvs show    %
  20. clippath stroke    %Draw a frame around the page border.
  21. showpage    %spit out the page.